home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / ad2qwk9b.zip / RBBSQWK.BAT < prev   
DOS Batch File  |  1992-08-20  |  2KB  |  40 lines
  1. @ECHO ON
  2. :
  3. : RBBSQWK.BAT (Optional) - Called by MailMan, to prepare QWK packet for
  4. :                          downloading.  If you allow your users to choose
  5. :                          archive methods, MailMan will have already created
  6. :                          the .QWK by the time this batch file is executed.
  7. :
  8. : First command line parameter is base file name
  9. : Second command line parameter is archive method ZIP, ARJ, LZH, or ARC
  10. : Third command line parameter is node number (not used).
  11. :
  12. : Last updated for distribution 12/23/91 - Morrow & Wilson
  13. :
  14. : Compress the .QWK packet if it doesn't already exist.
  15. : ---------------------------------------------------------------------------
  16.   if exist C:\DOORS\MMGRPLUS\NODE%NODE%\ADD2QWK.LST del C:\DOORS\MMGRPLUS\NODE%NODE%\noname.lst
  17.   if exist %1.qwk GOTO ADD2QWK
  18.   if (%2)==(ZIP) pkzip -m %1.qwk *.dat *.ndx ???log door.id news blt-*.*
  19.   if (%2)==(ARJ) arj a %1.qwk *.dat *.ndx ???log door.id news blt-*.*
  20.   if (%2)==(LZH) lharc a -m %1.qwk *.dat *.ndx ???log door.id news blt-*.*
  21. GOTO ADD2QWK
  22.  
  23. :ADD2QWK
  24. Echo  > COM%port%
  25. Echo Running Add2QWK (.90b) (c) Eddie Rowe (Work in Progress)...> COM%port%
  26. Echo Checking for personal downloads belonging to you...> COM%port%
  27. c:\utility\ADD2QWK /CFG:c:\utility\ADD2QWK.CFG /DOR:c:\rbbs\dorinfo%node%.def
  28. if exist C:\DOORS\MMGRPLUS\NODE%NODE%\ADD2QWK.LST GOTO ADDTOQWK
  29. Echo No personal download(s) for you today it looks like... > COM%port%
  30. GOTO END
  31.  
  32. :ADDTOQWK
  33. Cls
  34. Echo Adding personal download(s) to your .QWK Packet > COM%port%
  35. if (%2)==(ZIP) pkzip -a %1.qwk @ADD2QWK.LST
  36. if (%2)==(ARJ) arj a %1.qwk -!@ @ADD2QWK.LST
  37. if (%2)==(LZH) lha a /m /o %1.qwk @ADD2QWK.LST
  38. :END
  39. copy c:\rbbs\personal\add2qwk.new c:\rbbs\personal\priv.def
  40.